/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / LOVE.SEQ

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2e 0d 2e 0d 2e 31 30 20 | 72 65 6d 22 4c 4f 56 45 |.....10 |rem"LOVE|
|00000010| 20 2d 41 20 74 72 69 62 | 75 74 65 20 74 6f 20 52 | -A trib|ute to R|
|00000020| 6f 62 65 72 74 20 49 6e | 64 69 61 6e 61 27 73 20 |obert In|diana's |
|00000030| 66 61 6d 6f 75 73 20 73 | 63 75 6c 70 74 75 72 65 |famous s|culpture|
|00000040| 0d 2e 31 35 20 70 6f 6b | 65 35 33 32 38 30 2c 33 |..15 pok|e53280,3|
|00000050| 20 3a 70 6f 6b 65 35 33 | 32 38 31 2c 38 20 3a 70 | :poke53|281,8 :p|
|00000060| 72 69 6e 74 22 22 0d 2e | 32 30 20 70 72 69 6e 74 |rint""..|20 print|
|00000070| 22 22 3a 63 6c 72 3a 64 | 69 6d 74 24 28 31 32 30 |"":clr:d|imt$(120|
|00000080| 29 0d 2e 33 30 20 70 72 | 69 6e 74 22 22 74 61 62 |)..30 pr|int""tab|
|00000090| 28 31 35 29 22 4c 20 4f | 20 56 20 45 22 3a 70 72 |(15)"L O| V E":pr|
|000000a0| 69 6e 74 0d 2e 33 32 20 | 70 72 69 6e 74 74 61 62 |int..32 |printtab|
|000000b0| 28 35 29 22 41 20 54 72 | 69 62 75 74 65 20 74 6f |(5)"A Tr|ibute to|
|000000c0| 20 52 6f 62 65 72 74 20 | 49 6e 64 69 61 6e 61 27 | Robert |Indiana'|
|000000d0| 73 22 3a 70 72 69 6e 74 | 3a 70 72 69 6e 74 74 61 |s":print|:printta|
|000000e0| 62 28 31 32 29 22 46 61 | 6d 6f 75 73 20 53 63 75 |b(12)"Fa|mous Scu|
|000000f0| 6c 70 74 75 72 65 22 3a | 70 72 69 6e 74 0d 2e 34 |lpture":|print..4|
|00000100| 30 20 70 72 69 6e 74 22 | 20 20 20 45 6e 74 65 72 |0 print"|   Enter|
|00000110| 20 61 20 73 68 6f 72 74 | 20 6d 65 73 73 61 67 65 | a short| message|
|00000120| 20 75 70 20 74 6f 20 36 | 30 20 20 20 20 20 20 20 | up to 6|0       |
|00000130| 20 20 20 63 68 61 72 61 | 63 74 65 72 73 20 28 35 |   chara|cters (5|
|00000140| 2c 36 2c 31 30 2c 31 32 | 2c 31 35 2c 32 30 20 6f |,6,10,12|,15,20 o|
|00000150| 72 0d 2e 34 31 20 70 72 | 69 6e 74 22 20 20 20 33 |r..41 pr|int"   3|
|00000160| 30 2c 20 69 6e 64 69 63 | 61 74 65 64 20 62 65 6c |0, indic|ated bel|
|00000170| 6f 77 2c 20 61 72 65 20 | 62 65 73 74 29 3a 22 3a |ow, are |best):":|
|00000180| 70 72 69 6e 74 3a 70 72 | 69 6e 74 3a 70 72 69 6e |print:pr|int:prin|
|00000190| 74 0d 2e 34 33 20 70 72 | 69 6e 74 22 20 20 20 20 |t..43 pr|int"    |
|000001a0| 20 31 20 20 20 35 36 20 | 20 20 31 20 31 20 20 31 | 1   56 |  1 1  1|
|000001b0| 20 20 20 20 32 20 20 20 | 20 20 20 20 20 20 33 22 |    2   |      3"|
|000001c0| 3a 70 72 69 6e 74 22 20 | 20 20 20 20 20 20 20 20 |:print" |        |
|000001d0| 20 20 20 20 20 30 20 32 | 20 20 35 20 20 20 20 30 |     0 2|  5    0|
|000001e0| 20 20 20 20 20 20 20 20 | 20 30 0d 2e 34 34 20 70 |        | 0..44 p|
|000001f0| 72 69 6e 74 22 22 3b 3a | 69 6e 70 75 74 22 20 20 |rint"";:|input"  |
|00000200| 20 22 3b 20 61 24 3a 6c | 3d 6c 65 6e 28 61 24 29 | "; a$:l|=len(a$)|
|00000210| 0d 2e 34 35 20 69 66 6c | 3c 34 74 68 65 6e 61 24 |..45 ifl|<4thena$|
|00000220| 3d 22 4c 4f 56 45 22 3a | 6c 3d 34 0d 2e 34 37 20 |="LOVE":|l=4..47 |
|00000230| 70 72 69 6e 74 3a 70 72 | 69 6e 74 3a 70 72 69 6e |print:pr|int:prin|
|00000240| 74 3a 70 72 69 6e 74 22 | 20 20 20 44 6f 20 79 6f |t:print"|   Do yo|
|00000250| 75 20 77 69 73 68 20 74 | 6f 20 69 6e 63 6c 75 64 |u wish t|o includ|
|00000260| 65 20 61 20 62 6f 78 20 | 66 6f 72 20 74 68 65 22 |e a box |for the"|
|00000270| 3a 70 72 69 6e 74 22 20 | 20 20 38 20 63 65 6e 74 |:print" |  8 cent|
|00000280| 20 4c 4f 56 45 20 73 74 | 61 6d 70 3f 22 3b 0d 2e | LOVE st|amp?";..|
|00000290| 34 38 20 67 65 74 71 24 | 3a 69 66 71 24 3d 22 22 |48 getq$|:ifq$=""|
|000002a0| 74 68 65 6e 34 38 0d 2e | 34 39 20 69 66 71 24 3d |then48..|49 ifq$=|
|000002b0| 22 79 22 74 68 65 6e 67 | 3d 31 0d 2e 35 30 20 70 |"y"theng|=1..50 p|
|000002c0| 72 69 6e 74 3a 70 72 69 | 6e 74 3a 70 72 69 6e 74 |rint:pri|nt:print|
|000002d0| 3a 70 72 69 6e 74 22 20 | 20 20 50 72 65 73 73 20 |:print" |  Press |
|000002e0| 61 6e 79 20 6b 65 79 20 | 77 68 65 6e 20 70 72 69 |any key |when pri|
|000002f0| 6e 74 65 72 20 69 73 20 | 72 65 61 64 79 22 3b 0d |nter is |ready";.|
|00000300| 2e 35 35 20 67 65 74 71 | 24 3a 69 66 71 24 3d 22 |.55 getq|$:ifq$="|
|00000310| 22 74 68 65 6e 35 35 0d | 2e 35 38 20 70 72 69 6e |"then55.|.58 prin|
|00000320| 74 22 20 20 20 50 6c 65 | 61 73 65 20 77 61 69 74 |t"   Ple|ase wait|
|00000330| 20 2e 20 2e 20 2e 22 3a | 70 72 69 6e 74 3a 70 72 | . . .":|print:pr|
|00000340| 69 6e 74 22 20 20 20 28 | 61 62 6f 75 74 20 34 30 |int"   (|about 40|
|00000350| 20 73 65 63 6f 6e 64 73 | 29 22 0d 2e 36 30 20 66 | seconds|)"..60 f|
|00000360| 6f 72 6a 3d 30 74 6f 69 | 6e 74 28 36 30 2f 6c 29 |orj=0toi|nt(60/l)|
|00000370| 0d 2e 37 30 20 66 6f 72 | 69 3d 31 74 6f 6c 0d 2e |..70 for|i=1tol..|
|00000380| 38 30 20 74 24 28 6a 2a | 6c 2b 69 29 3d 6d 69 64 |80 t$(j*|l+i)=mid|
|00000390| 24 28 61 24 2c 69 2c 31 | 29 0d 2e 39 30 20 6e 65 |$(a$,i,1|)..90 ne|
|000003a0| 78 74 69 3a 6e 65 78 74 | 6a 3a 63 3d 30 0d 2e 31 |xti:next|j:c=0..1|
|000003b0| 30 30 20 61 31 3d 31 3a | 70 3d 31 3a 63 3d 63 2b |00 a1=1:|p=1:c=c+|
|000003c0| 31 3a 69 66 63 3e 33 37 | 74 68 65 6e 33 30 30 0d |1:ifc>37|then300.|
|000003d0| 2e 31 31 30 20 69 66 63 | 63 3d 30 74 68 65 6e 63 |.110 ifc|c=0thenc|
|000003e0| 63 3d 31 3a 6f 70 65 6e | 34 2c 34 3a 63 6d 64 34 |c=1:open|4,4:cmd4|
|000003f0| 3a 70 72 69 6e 74 23 34 | 2c 63 68 72 24 28 32 37 |:print#4|,chr$(27|
|00000400| 29 22 45 22 3a 67 6f 74 | 6f 31 32 30 0d 2e 31 31 |)"E":got|o120..11|
|00000410| 35 20 70 72 69 6e 74 23 | 34 2c 63 68 72 24 28 30 |5 print#|4,chr$(0|
|00000420| 29 0d 2e 31 32 30 20 72 | 65 61 64 61 3a 61 31 3d |)..120 r|eada:a1=|
|00000430| 61 31 2b 61 3a 69 66 70 | 3d 31 74 68 65 6e 31 34 |a1+a:ifp|=1then14|
|00000440| 30 0d 2e 31 33 30 20 66 | 6f 72 69 3d 31 74 6f 61 |0..130 f|ori=1toa|
|00000450| 3a 70 72 69 6e 74 23 34 | 2c 22 20 22 3b 3a 6e 65 |:print#4|," ";:ne|
|00000460| 78 74 69 3a 70 3d 31 3a | 67 6f 74 6f 31 35 30 0d |xti:p=1:|goto150.|
|00000470| 2e 31 34 30 20 66 6f 72 | 69 3d 61 31 2d 61 09 00 |.140 for|i=a1-a..|
|00000480| 61 31 2d 31 3a 70 72 69 | 6e 74 23 34 2c 74 24 28 |a1-1:pri|nt#4,t$(|
|00000490| 69 29 3b 3a 6e 65 78 74 | 69 3a 70 3d 30 0d 2e 31 |i);:next|i:p=0..1|
|000004a0| 35 30 20 69 66 61 31 3e | 36 30 74 68 65 6e 31 30 |50 ifa1>|60then10|
|000004b0| 30 0d 2e 31 36 30 20 67 | 6f 74 6f 31 32 30 0d 2e |0..160 g|oto120..|
|000004c0| 31 37 30 20 64 61 74 61 | 36 30 2c 31 2c 31 32 2c |170 data|60,1,12,|
|000004d0| 32 36 2c 39 2c 31 32 2c | 33 2c 38 2c 32 34 2c 31 |26,9,12,|3,8,24,1|
|000004e0| 37 2c 38 2c 34 2c 36 2c | 32 33 2c 32 31 2c 36 2c |7,8,4,6,|23,21,6,|
|000004f0| 34 2c 36 2c 32 32 2c 31 | 32 2c 35 2c 36 2c 35 0d |4,6,22,1|2,5,6,5.|
|00000500| 2e 31 38 30 20 64 61 74 | 61 34 2c 36 2c 32 31 2c |.180 dat|a4,6,21,|
|00000510| 31 31 2c 38 2c 36 2c 34 | 2c 34 2c 36 2c 32 31 2c |11,8,6,4|,4,6,21,|
|00000520| 31 30 2c 31 30 2c 35 2c | 34 2c 34 2c 36 2c 32 31 |10,10,5,|4,4,6,21|
|00000530| 2c 39 2c 31 31 2c 35 2c | 34 0d 2e 31 39 30 20 64 |,9,11,5,|4..190 d|
|00000540| 61 74 61 34 2c 36 2c 32 | 31 2c 38 2c 31 31 2c 36 |ata4,6,2|1,8,11,6|
|00000550| 2c 34 2c 34 2c 36 2c 32 | 31 2c 37 2c 31 31 2c 37 |,4,4,6,2|1,7,11,7|
|00000560| 2c 34 2c 34 2c 36 2c 32 | 31 2c 36 2c 31 31 2c 38 |,4,4,6,2|1,6,11,8|
|00000570| 2c 34 0d 2e 32 30 30 20 | 64 61 74 61 34 2c 36 2c |,4..200 |data4,6,|
|00000580| 31 39 2c 31 2c 31 2c 35 | 2c 31 31 2c 39 2c 34 2c |19,1,1,5|,11,9,4,|
|00000590| 34 2c 36 2c 31 39 2c 31 | 2c 31 2c 35 2c 31 30 2c |4,6,19,1|,1,5,10,|
|000005a0| 31 30 2c 34 2c 34 2c 36 | 2c 31 38 2c 32 2c 31 2c |10,4,4,6|,18,2,1,|
|000005b0| 36 2c 38 2c 31 31 2c 34 | 0d 2e 32 31 30 20 64 61 |6,8,11,4|..210 da|
|000005c0| 74 61 34 2c 36 2c 31 37 | 2c 33 2c 31 2c 37 2c 35 |ta4,6,17|,3,1,7,5|
|000005d0| 2c 31 33 2c 34 2c 34 2c | 36 2c 31 35 2c 35 2c 32 |,13,4,4,|6,15,5,2|
|000005e0| 2c 32 33 2c 35 2c 31 2c | 32 39 2c 35 2c 31 37 2c |,23,5,1,|29,5,17,|
|000005f0| 38 0d 2e 32 32 30 20 64 | 61 74 61 31 2c 32 39 2c |8..220 d|ata1,29,|
|00000600| 39 2c 39 2c 31 32 2c 36 | 30 2c 31 2c 31 33 2c 35 |9,9,12,6|0,1,13,5|
|00000610| 2c 34 30 2c 31 2c 31 2c | 31 33 2c 35 2c 34 30 2c |,40,1,1,|13,5,40,|
|00000620| 31 0d 2e 32 33 30 20 64 | 61 74 61 34 2c 36 2c 31 |1..230 d|ata4,6,1|
|00000630| 33 2c 33 2c 31 30 2c 36 | 2c 31 32 2c 35 2c 31 0d |3,3,10,6|,12,5,1.|
|00000640| 2e 32 34 30 20 64 61 74 | 61 35 2c 36 2c 31 31 2c |.240 dat|a5,6,11,|
|00000650| 33 2c 31 31 2c 36 2c 31 | 34 2c 33 2c 31 2c 35 2c |3,11,6,1|4,3,1,5,|
|00000660| 36 2c 31 31 2c 33 2c 31 | 31 2c 36 2c 31 35 2c 32 |6,11,3,1|1,6,15,2|
|00000670| 2c 31 0d 2e 32 35 30 20 | 64 61 74 61 36 2c 09 00 |,1..250 |data6,..|
|00000680| 39 2c 33 2c 31 32 2c 36 | 2c 31 36 2c 31 2c 31 2c |9,3,12,6|,16,1,1,|
|00000690| 36 2c 36 2c 39 2c 33 2c | 31 32 2c 36 2c 37 2c 31 |6,6,9,3,|12,6,7,1|
|000006a0| 2c 31 30 0d 2e 32 36 30 | 20 64 61 74 61 37 2c 36 |,10..260| data7,6|
|000006b0| 2c 37 2c 33 2c 31 33 2c | 36 2c 36 2c 32 2c 31 30 |,7,3,13,|6,6,2,10|
|000006c0| 2c 37 2c 36 2c 37 2c 33 | 2c 31 33 2c 31 34 2c 31 |,7,6,7,3|,13,14,1|
|000006d0| 30 2c 38 2c 36 2c 35 2c | 33 2c 31 34 2c 36 2c 36 |0,8,6,5,|3,14,6,6|
|000006e0| 2c 32 2c 31 30 0d 2e 32 | 37 30 20 64 61 74 61 38 |,2,10..2|70 data8|
|000006f0| 2c 36 2c 35 2c 33 2c 31 | 34 2c 36 2c 37 2c 31 2c |,6,5,3,1|4,6,7,1,|
|00000700| 31 30 2c 39 2c 36 2c 33 | 2c 33 2c 31 35 2c 36 2c |10,9,6,3|,3,15,6,|
|00000710| 31 36 2c 31 2c 31 0d 2e | 32 38 30 20 64 61 74 61 |16,1,1..|280 data|
|00000720| 39 2c 36 2c 33 2c 33 2c | 31 35 2c 36 2c 31 35 2c |9,6,3,3,|15,6,15,|
|00000730| 32 2c 31 2c 31 30 2c 36 | 2c 31 2c 33 2c 31 36 2c |2,1,10,6|,1,3,16,|
|00000740| 36 2c 31 34 2c 33 2c 31 | 2c 31 30 2c 31 30 2c 31 |6,14,3,1|,10,10,1|
|00000750| 36 2c 36 2c 31 32 2c 35 | 2c 31 0d 2e 32 39 30 20 |6,6,12,5|,1..290 |
|00000760| 64 61 74 61 31 31 2c 38 | 2c 31 33 2c 32 37 2c 31 |data11,8|,13,27,1|
|00000770| 2c 31 31 2c 38 2c 31 33 | 2c 32 37 2c 31 2c 36 30 |,11,8,13|,27,1,60|
|00000780| 0d 2e 33 30 30 20 69 66 | 67 3d 30 74 68 65 6e 33 |..300 if|g=0then3|
|00000790| 32 30 0d 2e 33 30 32 20 | 66 6f 72 69 3d 31 74 6f |20..302 |fori=1to|
|000007a0| 34 3a 70 72 69 6e 74 23 | 34 2c 63 68 72 24 28 31 |4:print#|4,chr$(1|
|000007b0| 30 29 3a 6e 65 78 74 0d | 2e 33 30 34 20 70 72 69 |0):next.|.304 pri|
|000007c0| 6e 74 23 34 2c 22 22 74 | 61 62 28 32 30 29 22 2a |nt#4,""t|ab(20)"*|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2a 22 63 68 72 24 28 | 31 33 29 22 22 74 61 62 |-*"chr$(|13)""tab|
|000007f0| 28 32 30 29 22 3a 20 20 | 20 20 20 20 20 20 20 20 |(20)":  |        |
|00000800| 20 20 20 20 20 20 20 3a | 22 0d 2e 33 30 35 20 66 |       :|"..305 f|
|00000810| 6f 72 69 3d 31 74 6f 35 | 3a 70 72 69 6e 74 23 34 |ori=1to5|:print#4|
|00000820| 2c 22 22 74 61 62 28 32 | 30 29 22 3a 20 20 20 20 |,""tab(2|0)":    |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 22 3a |        |     :":|
|00000840| 6e 65 78 74 0d 2e 33 31 | 35 20 70 72 69 6e 74 23 |next..31|5 print#|
|00000850| 34 2c 22 22 74 61 62 28 | 32 30 29 22 2a 2d 2d 2d |4,""tab(|20)"*---|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2a 22 |--------|------*"|
|00000870| 0d 2e 33 32 30 20 70 72 | 69 6e 74 23 34 2c 09 00 |..320 pr|int#4,..|
|00000880| 72 24 28 32 37 29 22 46 | 22 63 68 72 24 28 31 32 |r$(27)"F|"chr$(12|
|00000890| 29 63 68 72 24 28 31 32 | 29 3a 70 72 69 6e 74 23 |)chr$(12|):print#|
|000008a0| 34 3a 63 6c 6f 73 65 34 | 0d 2e 33 32 35 20 70 72 |4:close4|..325 pr|
|000008b0| 69 6e 74 22 20 20 20 41 | 6e 6f 74 68 65 72 3f 28 |int"   A|nother?(|
|000008c0| 79 2f 6e 29 3a 22 3b 0d | 2e 33 33 30 20 67 65 74 |y/n):";.|.330 get|
|000008d0| 71 24 3a 69 66 71 24 3d | 22 22 74 68 65 6e 33 33 |q$:ifq$=|""then33|
|000008e0| 30 0d 2e 33 33 35 20 69 | 66 71 24 3d 22 79 22 74 |0..335 i|fq$="y"t|
|000008f0| 68 65 6e 32 30 0d 2e 33 | 34 30 20 65 6e 64 0d    |hen20..3|40 end. |
+--------+-------------------------+-------------------------+--------+--------+